#!/usr/bin/perl

print("hi\n");

my $foo = "bar";

# =~ is like re.search
if ($foo =~ /a/) {
  print("match\n");
} else {
  print("none\n");
}

# Is there an equivalent of re.match?  I guess you just use anchors.
if ($foo =~ /^ba$/) {
  print("match\n");
} else {
  print("none\n");
}
